This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
...evaluate each column's Formula or ItemName against the current document.
For example:
Dim ws As New NotesUIWorkspace()
Dim uiVw As NotesUIView
Dim vw As NotesView
Dim entries As NotesViewEntryCollection
Dim entry As NotesViewEntry
Dim columns, value
Set uiVw = ws.CurrentView
Set vw = uiVw.View
columns = vw.Columns
Set entries = vw.AllEntries
Set entry = entries.GetFirstEntry()
Do Until entry Is Nothing
Forall c In columns
If c.IsFormula Then
value = Evaluate(c.Formula, entry.Document)
Else
value = entry.Document.GetItemValue(c.ItemName)
End If
' Your code here: copy value to a cell in Excel
End Forall
Set entry = entries.GetNextEntry(entry)
Loop
Feedback response number JSAK8RYANW created by ~Chris Frofootherobu on 03/01/2012